Option Strict On
Option Explicit On
Friend Class clsObraSocial
	Implements _IEntidad
	
	
	'##ModelId=4617F1610214
	Private MyOID As clsOID
	'##ModelId=4617F1610222
	Private MySiglas As String
	'##ModelId=4617F1610232
	Private MyNombreOS As String
	'##ModelId=4617F1610242
	Private MyCuit As String
	'##ModelId=4617F1610251
	Private MyCodigoPostal As String
	'##ModelId=4617F1610252
	Private MyDomicilio As String
	'##ModelId=4617F1610261
	Private MyProvincia As String
	'##ModelId=4617F1610271
	Private MyLocalidad As String
	'##ModelId=4617F1610280
	Private MyTelefono As String
	'##ModelId=4617F1610290
	Private MyEmail As String
	'##ModelId=4617F161029F
	Private MypagWeb As String
	'##ModelId=4617F16102A0
	Private MyActiva As Boolean
	'Private MycolHorariosxDia As Collection
	
	'##ModelId=4617F16102AF
	
	'##ModelId=4617F16102C1
	Private Property IEntidad_OID() As clsOID Implements _IEntidad.OID
		Get
            Return MyOID
		End Get
		Set(ByVal Value As clsOID)
			MyOID = Value
		End Set
	End Property
	
	'##ModelId=4617F16102EF
	
	'##ModelId=4617F16102DE
	Public Property NombreOS() As String
		Get
            Return MyNombreOS
		End Get
		Set(ByVal Value As String)
			MyNombreOS = Value
		End Set
	End Property
	
	'##ModelId=4617F161030E
	
	'##ModelId=4617F16102FE
	Public Property Cuit() As String
		Get
            Return MyCuit
		End Get
		Set(ByVal Value As String)
			MyCuit = Value
		End Set
	End Property
	
	'##ModelId=4617F161032C
	
	'##ModelId=4617F161031C
	Public Property Siglas() As String
		Get
            Return MySiglas
		End Get
		Set(ByVal Value As String)
			MySiglas = Value
		End Set
	End Property
	
	'##ModelId=4617F161034B
	
	'##ModelId=4617F1610331
	Public Property pagWeb() As String
		Get
            Return MypagWeb
		End Get
		Set(ByVal Value As String)
			MypagWeb = Value
		End Set
	End Property
	
	'##ModelId=4617F161035F
	
	'##ModelId=4617F1610350
	Public Property Telefono() As String
		Get
            Return MyTelefono
		End Get
		Set(ByVal Value As String)
			MyTelefono = Value
		End Set
	End Property
	
	'Public Property Get Celular() As String
	'   Celular = MyCelular
	'End Property
	
	'Public Property Let Celular(ByVal vNewValue As String)
	'   MyCelular = vNewValue
	'End Property
	
	'##ModelId=4617F161037B
	
	'##ModelId=4617F161036E
	Public Property Email() As String
		Get
            Return MyEmail
		End Get
		Set(ByVal Value As String)
			MyEmail = Value
		End Set
	End Property
	
	'##ModelId=4617F161039A
	
	'##ModelId=4617F161038A
	Public Property Domicilio() As String
		Get
            Return MyDomicilio
		End Get
		Set(ByVal Value As String)
			MyDomicilio = Value
		End Set
	End Property
	
	'##ModelId=4617F16103B9
	
	'##ModelId=4617F161039F
	Public Property Provincia() As String
		Get
            Return MyProvincia
		End Get
		Set(ByVal Value As String)
			MyProvincia = Value
		End Set
	End Property
	
	'##ModelId=4617F16103CA
	
	'##ModelId=4617F16103BE
	Public Property Localidad() As String
		Get
            Return MyLocalidad
		End Get
		Set(ByVal Value As String)
			MyLocalidad = Value
		End Set
	End Property
	
	'##ModelId=4617F1620001
	
	'##ModelId=4617F16103DB
	Public Property CodigoPostal() As String
		Get
            Return MyCodigoPostal
		End Get
		Set(ByVal Value As String)
			MyCodigoPostal = Value
		End Set
	End Property
	
	
	'##ModelId=4617F162001F
	
	'##ModelId=4617F162000F
	Public Property Activa() As Boolean
		Get
            Return MyActiva
		End Get
		Set(ByVal Value As Boolean)
			MyActiva = Value
		End Set
	End Property
	
	'##ModelId=4617F16102D1
	Public Sub Constructor(ByRef MyClave As String)
		MyOID = NewOID(MyClave, tipoOBRASOCIAL)
	End Sub
	
	'Private Sub AgregarHorario(HorarioDia As clsHorarioxDia)
	'   MycolHorariosxDia.Add HorarioDia, HorarioDia.ObtenerNombreOSDia()
	'End Sub
	'Private Function ObtenerHorario(NombreOSDia As String) As clsHorarioxDia
	'   On Error GoTo FALLO
	'   Set ObtenerHorario = MycolHorariosxDia.Item(Trim(NombreOSDia))
    '   'Exit Function
	'FALLO:
	'   MiMensaje "El horario del dia " & NombreOSDia & " no se encontro.."
	'   Set ObtenerHorario = Nothing
	'End Function
End Class